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The present form of this cardiovascular model 
simulates both 1-g and zero-g LBNP experi- 
ments and tilt experiments. In addition, the 
model simulates LBNP experiments at any body 
angle. _ The model is currently accessible on 
the Univac 1110 Time-Shared System in an inter- 
active operational mode. Model output may be 
in tabular form and/or graphic form. The 
graphic capabilities are programmed for the - 
Tektronix 4010 graphics terminal and the Univac 
1110. 
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PROGRAM DESCRIPTION 


A. IDENTIFICATION 
Program Name 



G. a. oarciiovaecuxar LBNP Model 
(Univac 1110 Version) 


Bioengineer Contact 


D. G. Fitzjerrell 


Programmer's Name 


V. J. Marks, GE/JSC, Houst< 


Date of Issue 


March 29, 1974 


B. GENERAL DESCRIPTION 

A mathematical model and digital computer simulation of the human 
cardiovascular system and its controls were developed to simulate 
responses to lower body negative pressure (LBNP) and tilt experi- 
ments . The purpose of the model is to provide a method to analyze 
cardiovascular control hypotheses which cannot be easily tested in 
an animal or human or in a spaceflight environment. 


C. USAGE AND RESTRICTIONS 


Machine and Compiler Required 
Peripheral Equipment Required 


Univac 1110 TSS and Fortran V 

Magnetic Tape 

Time -Sharing Terminal 


D. PARTICULAR DESCRIPTION 


Basic Equations Used and Derivations - See TIR No. 74l -MED -2010 

(Exercise Model) 

Definition of Terms Used - See Table 1. 

Detailed Description - Equations describing pulsatile blood flows, 
pressures, and volumes for 28 model sections of the cardiovascular 
circulatory model are solved. The circulatory system model. Figure 
1, is combined with models of the controlling systems to. form a 
dynamic model to simulate responses to LBNP and tilt. Other charac- 
teristics of the combined model include gravity effects, venous tone, 
venous valves, and intrathoracic and intra-abdominal pressure effects. 




LOWER 

CAROTID 

ARTERIES 


UPPER 

THORACIC 

AORTA 


LOWER 

THORACIC 

AORTA 


ABDOMINAL 

AORTA 


LEG i 
SMALL f 
VEINS <£) 


NOTATION 

- rrvv '- FLUID INERTANCE 
FLOW RESISTANCE 


AEMKMAL CAVTTY 

LEGS 


COMMON 

ILIAC 

ARTERIES 


I LEG 
SMALL 
ARTERIES 


VENULES 

AND 

ARTERIOLES 


r 

CAPILLARIES 


„ 

ig— -ff 


1 f 

T 17 

NOTATION 

Hlbnp 


1 

lbnpA 

@ VALVES 


^ 

5f HONUNEAR COMPLIANCE 

LBNP CIRCULATORY MODEL 


O CONTROLLED VARIABLES 

R BLOOD VOLUME 
COMPARTMENTS 


FIGURE 1 









3 


E. DESCRIPTION OF INPUT 

(1) Contact V. J. Marks, GE/JSC, Houston, to obtain Univac 1110 
sign-on procedures and authorization codes. 

(2) The first inquiry made by the interactive program is for the 
selection of either an LEHR or Tilt Experiment. 

(3) The responses to conversational output of the program allows 
the user to change the standard set of initialization data shown 
in Table 1. If this is desired, the user enters the appropriate 
index code and new value for each variable as directed. When no 
more changes are to be requested, zero is entered. If a tilt 
experiment is being simulated, the value of the angle in degrees, 
measured positive clockwise from horizontal, should be entered 
with the index of 575 • If graphic output of pressure waveform 
data is wanted for a given two second interval, the end time 
should be entered in seconds with an index of 598 • Other typical 
inputs include LBNP simulation protocol (elements 5 UI- 560 ) and 
print interval (element 599 ) • 


F. DESCRIPTION OF OUTPUT 


(1) If the graphic output option is selected, a graphics terminal is 
required. (The graphics in this program are written for the 
Tektronix 4010) . This option suppresses the initial printout of 
tabular data. A plotted output is generated as it is computed. 

As computation proceeds, the output variables selected are buffered 
and may be outputed in tabular or graphic form as selected. 

(2) Conversational output of the program will ask the user if he wishes 
to change the standard terminal output list of variables . If so, 
the user enters the appropriate column number and index code for 
each variable as directed by the conversational output of the pro- 
gram. The standard set of output variables consists of time and 

b dependent variables which are output each print interval and aver- 
aged for the last five heart beats . The selected standard variables 
are as follows: 


1 

2 

3 

4 


Simulation Time 
Heart Rate 
Cardiac Output 
Stroke Volume 


(sec) 

(beats /min) 

(liters/min) 

(liters) 


5 Mean Blood Pressure (mm Hg) 

6 Systolic Blood Pressure (mm Hg) 

(Cont'd) 
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7 Diastolic Blood Pressure (mm Hg) 

8 Lower Body Negative Pressure (mm Hg) or Tilt angle, (Deg) if 
selected. 

9 Total Blood Volume in Legs (ml) 


If graphic output option is selected, conversational operation of the 
program will direct the input of time intervals and start and stop 
times. (See example page 29 ). The number of time intervals (3-5) 
specifies how many increments to divide the time scale. The default 
option for stop and start times includes the total simulation run. 
Location and variable limits information for each plotted variable 
selected is then solicited in a. similar manner. It should be noted 
that each entry must be -properly positioned as shown in the example . 

Each location specified (1-6) directs the location in which the variable 
will be platted (see example page 29 ). An additional option available 
is plotted output of pressure waveform data. This data is stored at 
rate of 90 points per second for the two seconds preceding the time 
entered for element 598. The volume- compartments for which pressure 
waveforms plots may be selected are as follows: 


H. 


I. 


Element 

Mnemonic 

Volume Compartment 

20k 

PLV 

Left Ventricle 

20 « 

PAA 

Aortic Arch 

212 

PLTA 

Lower Thoracic Aorta 

211 

FUTA 

Upper Thoracic Aorta 

2l4 

PLABA 

Abdominal Aorta 

215 

PC ILL 

Common Iliac Artery 

224 

PL0C 

Lower Carotid Arteries 

231 

PRENA 

Renal Arteries 


INDEPENDENT SUBROUTINES 

CVS 

Pulsatile Circulatory Model 

CONTRL 

Cardiovascular Controlling Systems 

ALGO 

Integration Algorithm 

XIO 

Conversational Input / Output 

BLKDAT 

Initialization Data 

TEKTRONIX PLOT PACKAGE 

COMPUTER 

PROGRAM LISTING AND EXAMPLE OUTPUT 


(Attached) 
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ELEMENT 

NO. 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 


TABLE 1 
DEFINITIONS 


MNEMONIC 

, DEFINITION 

CONSTANT OR 
INITIAL VALUE 

UNITS 

X(l) 

Stressed Vol., RT. Atrium 

89.9 

ml 

X(2) 

" " , RT. Ventricle 

215.8 

tt 

X(3) 

Ir " , Left Atrium 

38.7 

it 

X(4) 

" •" , Left Ventricle 

218.0 

u 

x( 5 ) 

" ' " , Pulmonary Arteries 

7.7 

tt 

x(6) 

" " , " Arterioles 

10.6 

tt 

x(7) 

" , • " Venules 

27.4 

tt 

x(8) 

" " , Aortic Arch 

23.9 

tt 

x( 9 ) 

Inertance Integral 

0.0 

- 

X{10) 

Integral of Aortic Arch 

0.0 

mmHg-sec 

X(ll) 

Pressure/Beat 
Inertance Integral 

0.0 


X(12) 

Stressed Vol., Thoracic Aorta 

23.6 

ml 

X(13) 

Integral of Carotid 

0.6 

mmHg-sec 

2(14) 

Pressure/Beat 

Stressed Vol. , Abdominal Aorta 

16.2 

ml 

X(15) 

Stressed Vol., Common Iliac Arteries 

62.3 

Tt 

X(l6) 

" " , Legs Small Arteries 

62.4 

IT 

X(17) 

" " , Legs Arterioles 

4.1 

tt 

X(18) 

" ,f , Legs Venules 

126.0 

tt 

x(i 9 ) 

" " , Legs Small Veins 

205.0 

ti 

X(20) 

" " ", Femoral Veins 

4i.o 

it 

X(21) 

Total' Vol., Abdominal Vena Cava 

355.2 

tt 

X(22) 

Total Vol., Thoracic Vena Cava 

■ 253.5 

tt 

X(23) 

Total Vol., Superior Vena Cava 

36.4 

Tt 

X(24) 

Stressed Vol., Lower Carotid Arteries 

23.5 

Tt 

X(25) 

” " , Upper Carotid Arteries 

31.2 

tt 

X(26) 

" " , Head Small Veins 

63.4 

It 

X(27) 

" " , Jugular Veins 

3.1 

tt 

x(28) 

" " , Superior Mesenteric 

254.2 

tt 

X(29) 

Veins 

Stressed Vol.., Upper Thoracic Aorta 

30.0 

Tt 

x( 30 ) 

Stressed Vol. , Portal Veins 

120.7 

It 

x( 31) 

" " , Renal Arteries 

17.1 

tt 

X(32) 

" " , Renal Veins 

43.7 

tt 

X{33) 

Integral of Left Vent. Flow/Beat 

0.0 

tt 

X(34) 

Inertance Integral 

0.0 

“ 

x(35) 

It !t 

0.0 

- 

x(36) 

11 tt 

0.0 

— 

X(37) 

Integral of Upper Thoracic Aortic Pressure 0.0 

mmHg-sec. 

x(38) 

Not Used 

. 


X(39) 

tt 

- 

•" 

x( 4 o) 

IT 

- 

- 
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ELEMENT 

NO. 

MNEMONIC 


DEFINITION 

CONSTANT OR 
INITIAL VALUE 

UNITS 

4i 

X(4l) 

Not 

Used 


_ 

42 

X(42) 

tt 

tt 

- 

- 

43 

x(43) 

It 

tl 

- 

- 

44 

x(44) 

IT 

tt 

- 

- 

45 

X(45) 

Tl 

It 

- 

- 

46 

X(46) 

Tt 

tt 

- 

- 

47 

X(47) 

tt 

tt 

- 

- 

48 

' x(48) 


It 

- 

- 

49 

X(49) 


It 

- 

- 

50 

X(50) 

tt 


- 

- 

51 - 100 





101 

ORA 

Flow from RT. Atrium 

Computed 

ml/sec 

102 

QRV 

It 

" RT. Ventricle 

Variable 

If 

103 

QLA 

It 

" Left Atrium 

It 

tl 

104 

QLV 

It 

" " Ventricle 

tt 

ft 

105 

QPA 

It 

" Pulmonary Arteries 

If 

It 

106 

QPC 

It 

" Pulmonary Arterioles 

tt 

It 

107 

QFV 

Tt 

" " Venules 

It 

tl 

108 

QAA 

ft 

" Aortic Arch 

It 

tt 

109 


Not 

Used 



110 


Tt 

It 



ill 

QUTA 

Flow From Upper Thoracic Aorta 

Computed 

ml/ sec 

112 

Q1TA 

Flow from Lower Thoracic Aorta 

Variable 

tt 

113 


Not 

Used 



ll4 

QLABA 

Flow from Abdominal Aorta 

tt 

If 

115 

QCILL 

Flow from Common Iliac Arteries 

. tt 

If 

ll6 

QLGSA 

It 

" Leg Small Arteries 

II 

tt 

117 


Not 

Used 



118 

QLGCAP 

Flow from Leg Arterioles 

tt 

tt 

119 

QIGVE 

It 

" Leg Venules 

tt 

11 

120 

QIGSV 

tt 

" Leg Small Veins 

tt 

It 

121 

QFEV 

tt 

" Femoral Veins 

tt 

11 

122 

QABVC 

tt 

" Abdominal Vena Cava 

tt 

tt 

123 

QTHVC 

tl 

" Thoracic 

It 

tt 

124 

QSFVC 

It 

" Superior Vena Cava 

It 

tt 

125 

QLOC 

Flow to Lower Carotid Arteries 

It 

tt 

126 

QUPC 

tt 

" Upper 

If 

tt 

127 

QHCAP 

II 

from Upper Carotid Arteries 

It 

tt 

128 

QHSV 

tt 

. from Head Small Veins 

tt 

It 

129 

QJV 

tt 

from Jugular Veins 

tt 

It 

130 

QC0R 

Coronary Blood Flow 

tt 

If 
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ELEMENT 



CONSTANT OR 


NO. 

MNEMONIC 

DEFINITION 

INITIAL VALUE 

UNITS 

131 

QjCSMA 

Flow to Superior Mesenteric Veins 

Computed 

ml/sec 

132 


Not. Used 

Variable 

tt 

133 

QCSMV 

Flow from Superior Mesenteric Veins 

11 

tl 

134 

QP0V 

" " Portal Veins 

tl 

It 

135 


Not Used 

tt 

11 

136 

QRENA 

Flow to Renal Arteries 

tr 

Tt 

137 

QRALE 

• Flow from Renal Arteries 

tt 

IT 

138 

QRENV 

" Renal Vein 

I! 

tt 

139 

QRET 

Flow to RT.- Atrium 

ft 

It 

l4o 

QD(1) 

Not Used 



l4l 


Not Used ’ 



142 


Not Used 



143 


Not Used 



l44 


Not Used 



145 


Not Used 



l46 


Not Used 



147 


Not Used 



l48 


Not Used 



149 

OP (10) 

Not Used 



150 

03KB 

Flow Through Skeleton, Bone Marrow, 

Computed 

ml/sec 



and Fat 

Variable 

tt 

151 

CRA 

Compliance, Right Atrium 

tt 

ml/mmHg 

152, 

CRV 

" , Right Ventricle 

tt 

IT 

153 

CLA 

" , Left Atrium 

tt 

tl 

154 

CLV 

" , Left Ventricle 

ft 

ft 

155 

CPA 

" j Pulmonary Arteries 

1.2 

ml/mmHg 

156 

CPC 

" " Arterioles 

1.7 

It 

157 

CPV 

" " Venules 

5.3 

tt 

158 

CAA 

" , Aortic Arch 

0.3 


159 


Not Used 



160 


Not Used 



161 

CUTA 

Upper Thoracic Aorta 

0.4 


162 

CLTA 

Lower Thoracic Aorta 

0.4 


163 


Not Used 



164 

CLABA 

Abdominal Aorta 

0.21 


165 

CCILL 

Compliance, Common Iliac Arteries 

0.8 

tr 

166 

CLGSA 

" , Leg Small Arteries 

0.8 

tl 

167 

CLGAR 

" , Leg Arterioles 

0.3 

tt 

168 

CLOVE 

" , Leg Venules 

3.956 

tt 

169 

CLGSV 

" , Leg Small Veins 

3.14 

tt 

17Q 

CFEV 

" , Leg Femoral Veins 

0.2 

It 

171 


Temporary Storage 



172 


It II 



173 


11 tl 



174 

CL0C 

Compliance, Lower Carotid Arteries 

0.3 

tt 

175 

CUPC 

" , Upper " " 

0.399*: 

tt 

176 

CHSV 

" , Head Small Veins 

5.3 

it 

177 

CJV 

" , Jugular Veins 

0.905^ 

Tt 

178 

CCSMV 

, Superior Mesenteric Veins 

9-59 

tt 

179 


Not Used 

- 

It 

180. 

CP0V 

" , Portal Veins 

6.047 

tt 



a 


ELEMENT 

WO. MNEMONIC DEFINITION 


CONSTANT OR. 
INITIAL VALUE 


181 

182 

183 

184 

185 

186 

187 

188 

189 

190 


CRENA Compliance, Renal Arteries 

CRENV " , Renal Veins 

CD(1) Not Used 

It 

n 

It 

It 

It , 

It 

II 


0.2224 

2.517 


191 

192 

193 

194 

195 

196 

197 

198 

199 

200 CD(l8) 


UNITS 
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CALCULATED VARIABLES FOR EACH VOLUME COMPARTMENT 


ELEMENT 

NO. 

PRESSURE 
(mm Hg) 

PRA 




PRESSURE DUE 
TO GRAVITY 


EXTERNAL 

PRESSURE 

VOLUME 

COMPARTMENT 

201 

321 

V(l) 

421 

PG(l) 

455 

PEXT(l) 

RT. Atrium 

202 

PRV 

322 

V(2) 

422 

PG(2) 

456 

PEXT(2) 

RT. Ventricle 

203 

PLA 

323 

v(3) 

423 

PG(3) 

457 

PEXT(3) 

Left Atrium 

3.0b 

PLV 

324 

v(4) 

424 

pg(4) 

458 

PEXT(4) 

Left Ventricle 

205 

PPA 

325 

v(5) 

425 

PG(5) 

459 

PEXT(5) 

Pulmonary Ar- 
teries 

206 

PPC 

326 

v(6) 

426 

pg(6) 

46o 

PEXT(6) 

Pulmonary Ar- 
terioles 

207 

PFV 

327 

V(7) 

427 

PG(7) 

46l 

PEXT(7) 

Pulmonary Veins 

208 

PAA 

328 

V(8) 

428 

PG(8) 

462 

PEXT(8) 

Aortic Arch 

209 

210 

Temporary Storage 

tt It 

429 

430 

PG(9) 

PG(lO) 

463 

464 

PEXT(9) 

pext(io) 


211 

FUTA 

If 


431 

PG(ll) 

465 

PEXT(ll) 

Upper Thor .Aorta 

212 

PLTA 

332 

V(12) 

432 

PG(12) 

466 

PEXT (12) 

Lower Thor .Aorta , 

213 

Temporary Storage 

433 


467 

PEXTf 13) 

Abdominal Aorta 

214 

PLABA 

334 

v(i4) 

434 

468 

pext(i4) 

215 

PC ILL 

335 

V(15) 

435 

PG(15) 

469 

EEXT(15) 

Common Iliac 
Artery 

216 

PLGSA 

336 

V(16) 

436 

pg(i6) 

470 . 

pext(i6) 

Leg Small Art- 
eries 

217 

PLGAR 

337 

V(17) 

437 

PG(17) 

471 

PEXT ( 17 ) 

Leg Arterioles 

218 

PLGVE 

338 

V(l8) 

438 

PG(l8) 

472 

PEXT(l8) 

Leg Veins 

219 

PLGSV 

339 

V(l9) 

439 

PG(19) 

473 

PEXT(19) 

Leg Small Veins 

220 

PFEV 

340 

V(20) 

44o 

PG(20) 

474 

PEXT(20) 

Femoral Veins 

221 

PABVC 

34i 

V(21) 

44l 

PG("2l) . 

475 

PEXT(2l) 

Abdominal Vena 
Cava 

222 

PTHVC 

342 

V(22) 

442 

PG(22) 

476 

PEXT(22) 

Thoracic Vena 
Cava 

223 

PSPVC 

343 

V(23) 

443 

PG(23) 

477 

PEXT(23) 

Superior Vena 
Cava 

224 

PL0C 

344 

V(24) 

444 

PG(24) 

478 

PEXT (24) 

Lower Carotid 
Arteries 

225 

PUPC 

345 

V(25) 

445 

PG(25) 

479 

PEXT(25) 

Upper Carotid 
Arteries 

226 

PHSV 

346 

V(26) 

446 

PG(26) 

480 

pext( 26 ) 

Head Small Veins 

227 

PJV 

347 

V(27) 

447 

PG(27) 

48l 

PEXT(27) 

Jugular Veins 

228 

PCSMV 

348 

V(28) 

448 

PG(28) 

482 

PEXT(28) 

Superior Mesen- 
teric Veins 

229 

Not Used 

349 

Not Used 

449 

Not Used 

483 

Not Used 


230 

PP0V 

350 

V(30).^ 

450 

PG(30) 

484 

PEXT(30) 

Portal Veins 
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ELEMENT 

NO. 

PRESSURE 
(mm Hg) 

TOTAL VOLUME PRESSURE DUE EXTERNAL 

(ml) TO GRAVITY PRESSURE 

231 

PRENA. 

351 V(31) 451 PG(31) 

485 PEXT(31) 

232 

PRENV 

352 V(32) 452 PG(32) 

486 PEXT(32) 

233 

FD(1) Mean. Upper Thoracic Aortic Pressure 


234 

Not Used 

453 -'454 Not Used 

235 

Not Used 353 - 368 Not Used 

. 

236 

II II 

369 - V( 49) Blood Volume Command 

= 5000. 0 ml 

237 

It It 

370 - V(50) Total Blood Volume = 

5000.0 ml 

238 

M It 



239 

t! tf 



240 

IT J II 



241 

tl II 



242 

tl If 



243 

tl tl 



244 

H 11 



245 

It If 



246 

tl 11 



247 

11 II 



248 

If IT 



249 

PM Mean Arterial Pressure 

90.0 

250 

PMC Mean 

Carotid, Arterial Pressure 

90.0 

ELEMENT 



CONSTANT OR 

NO. 

MNEMONIC 

DEFINITION INITIAL VALUE 

251 

ERA 

RT. Atrium Valve Resistance 

0.007508 

252 

RRV 

RT. Ventricle Valve Resistance 

0.007508 

253 

RMV 

Left Atrium Valve 

0.007508 

254 

RAV 

Left Ventricle Valve 

0.008634 

255 

RPA 

Pulmonary Arterioles 

0.01502 

256 

RPC 

Pulmonary Capillaries 

0.05255 

257 

RPV 

Pulmonary Venules 

0.01502 

258 


Not Used 


259 


Not Used 


260 

RUTA 

Upper Thoracic Aorta 

0.04 

26 l 

RLTA 

Lower Thoracic Aorta 

o.o4 

262 


Not Used 

0.0 

263 

RLABA 

Abdominal Aorta 

0.03 

264 

RCILL 

Common Iliac Arteries ' 

0.03 

265 

RLGSA 

Leg Small Arteries 

0.03003 

266 

ELGAR 

Leg Arterioles 

4.505 

267 

RLGCAP 

Leg Capillaries 

0.4505 

268 

RLGVE 

Leg Venules 

0.07508 

269 ' 

ELGSV 

Leg Small Veins 

0.07508 

270 

RFEV 

Femoral Veins 

0.02102 


VOLUME 

COMPARTMENT 

Renal Arterie: 
Renal Veins 


ramHg 

mmHg 

UNITS 

mmHg/ml/se 
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ELEMENT 



CONSTANT OR 


NO. 

MNEMONIC 

DEFINITION 

INITIAL VALUE 

UNITS 

271 

RABVC 

Abdominal Vena Cava 

0.007380 

minHg/ml/se 

272 

RTHVC 

Thoracic Vena Cava 

0.007508 

ft 

273 

RSPVC 

Superior Vena Cava 

0.01502 

M 

274 

RL0C 

Lower Carotid Arteries 

0.02252 

tf 

275 

RUPC 

Upper Carotid Arteries 

0.03378 

ft * 

27 6 

RHCAP 

Head Capillaries 

3.431 

ft 

277 

RHSV 

Head Small Veins 

0.3754 

ft 

278 

RJV 

Jugular Veins 

0.004302 

ft 

279 

RC0R 

Coronary 

15.390 

ft 

280 

RCSMA 

Superior Mesenteric Arteries 

1.9744745 

ff 

281 


Not Used 


ft 

282 

RCSMV 

Superior Mesenteric Veins 

0.2252 

tf 

283 

RPOV 

Portal Veins 

- 0.5255 

IT 

284 


Not Used 


ff 

285 

RRENA 

Renal Arteries 

0.01502 ‘ 

It 

286 

RRAEiE 

Renal Arterioles 

0.45045 

If 

287 

RREFF 

Efferent Arterioles 

2.744 

ff 

288 

RRENV 

Renal Veins 

0.6494 

ft 

289 

RD(1) 

Not Used 



290 


it n 



291 


Not Used 



292 


it n 



293 


ff Tf 



294 


it n 



295 


n 11 



296 


It IT 



297 


1! It 



'298 


11 If 



299 

ED (11) 

If ft 



300 

RSKB 

Skeleton and Fat 

5.150 

11 

301 

FLPA 

Inertance, Pulmonary Arteries 

0.0007508 

mmHg/ml/sec 2 

302 

FLAA 

, Aortic Arch 

'o.oo4 

If 

303 


Not Used 



304 


ft II 



305 

FLUTA 

Inertance, Upper Thoracic Aorta 

o.oo4 


306 

FLLTA 

Inertance, Thoracic Aorta 

o.oo4 

If 

307 


Not Used 



308 

FLLABA 

Inertance, Abdominal Aorta 

o.oo4 

ft 

309 


Not Used 


ff 


310 - 320 


Not Used 
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UNSTRESSED VOLUMES 


ELEMENT 



CONSTANT OR 


NO. 

MNEMONIC 

DEFINITION 

INITIAL VALUE 

UNITS 

371 

VU(1) 

Rt. Atrium 

30.0 • 

ml 

372 

VU(2) 

Rt. Ventricle 

0.0 

11 

373 

vu(3) 

Left Atrium 

30.0 

IT 

374 

vu(4) 

Left Ventricle 

0.0 

t! 

375 

vu(5> 

Pulmonary Arteries 

85 .O 

IT 

376 

vu(6) 

Pulmonary Arterioles 

15.0 

II 

377 

w(7) 

Pulmonary Veins 

400.0 

If 

378 

vu(8) 

Aortic Arch 

6l.6 


379 

vu( 9 ) 

Not Used 



380 

vu(io) 

ti ti 



381 

vu(ll) 

t! II 



382 

VU(12) 

Thoracic Aorta 

90.5 


383 

VU(13) 

Not Used 



384 

VU(14) 

Abdominal Aorta 

43.5 


385 

VU(15) 

Common Iliac Arteries 

5.194 

tt 

386 

VU(16) 

Leg Small Arteries 

30.0 

II 

387 

VU(17) 

Leg Arterioles 

30.0 

IT 

388 

vu(i8) 

Leg Venules 

0.0 

11 

389 

VU(19) 

Leg Small Veins 

O'-.O 

11 

390 

VU(20) 

Femoral Veins 

0.0 

If * 

391 

VU(2l) 

Not Used 



392 

VU(22) 

IT IT 



393 

VU(23) 

it n 



394 

VU(24) 

Lower Carotid Arteries 

50.0 

II 

395 

VU(25) 

Upper Carotid Arteries 

50.0 

11 

396 

VU(26) 

Head Small Veins 

509 v 8 -' 

It 

397 

VU(27) 

Jugular Veins 

28.0 

11 

398 

VU(281 

Superior Mesenteric Veins 

562.0 - 

II 

399 

vu( 29 ) 

Not Used 


It 

4oo 

VUC 30 ) 

Portal Veins 

375.0 

It 

4oi 

VU(31) 

Renal Arteries 

50.0 

tl 

402 

VU(32) 

Renal Veins 

150.0 

II 

403 - 

420 

Not Used 



487 

E(l) 

Right Atrial Elastance 

Computed Variable 

mmHg/ml 

488 

E(2) 

Right Ventricle Elastance 

ft IT 

It 

489 

E(3) 

Left Atrial Elastance 

IT It 

It 

490 

e(4) 

Left Ventricle Elastance 

IT It 

II 

491 

BRN ■ 

Pressure Set Point 

88.0 

mmHg 

492 

ABIAS 

Abdominal Vena Cava Compliance 





Curve Bias 

2.55 

- 

493 

TBIAS 

Thoracic Vena Cava Compliance 





. Curve Bias 

3.6 

- 

-r494 , 

TTHAZ 

Tilt Down Time 

9999 - 

- 

495 

TMODEL 

Tilt Exp. Select 

0. 


496 

SPACE(l')— 

Not Used 



497 

SPACE(2) 

IT TT 

0.0 

mmHg 

498 

ECBV 

Effective Circulating Blood 

• 




Volume 

Computed Variable 

ml 

499 

PTIS 

PTIS-Tissue Press, in Legs 

2.0 

mmHg 

500 

BSLG 

Blood Shifted from Legs 

0. 

mmEg 
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ELEMENT 

NO. 

MNEMONIC 

-501 

Z(l) 

502 

Z(2) 

503 

2(3) 

504 

z(4) 

505 

Z(5) 

506 

Z(6) 

507 

Z(7) 

508 

Z(8) 

509 

z(9) 

510 

Z(10) 

5H 

2(11) 

512 

Z(12) 

513 

Z(13) 

514 

z(i4) 

515 

Z(15) 

516 

z(i6) 

517 

Z(17) 

518 

z(l8) 

519 

Z(19) 


Z(20) 

521 

Z(21) 

522 

Z(22) 

523 

Z(23) 

524 

Z(24) 

525 

Z(25) 

526 

Z(26) 

527 

Z(27) 

528 

Z(28) 

529 

Z(29) 

530 

Z(-30) 

531. 

Z(31) 

532 ■ 

Z(32) 

533 

Z(33) 

534 

z(34) 

535 

Z(35) 

536 

537 

z(36) 

z(37) 

538 

Z(38) 

539 

Z(39) 

540 

Z(4o) 

54i 

WK(l) 

542 

WK(2) 

543 

NK(3) 

544 

WK(4) 

545 

WK(5) 

546 

NK (6) 

547 

WK(7) 

548 

WK(8) 

549 

WK(9) 

550 

WK(lO) 


DEFINITION 

Length of Vascular Segment 

It 

It 

II 

tt 

It ' 

tr 

it 

tt 

it 

tt 

n 

tt 

tt 

tt 

tt 

tt 

11 

tt 

tt 

tt 

tt 

tt 

tt 

tt 

tt 

n 

tt 

tt 

tt 

tt 

it 

tt 

tt 

it 

tt 

tt 

tt 

tt 

tt 

Time (Sec), LBKP Steps 

11 ii 

II t! 

11 II 

It II 

II It 

H It 

It II 


CONSTANT OR 
INITIAL VALUE 

UNITS 

0.0 

cm 

0.0 

It 

0.0 

tt 

0.0 

It 

o-.o 

tt 

0.0 

tt 

0.0 

It 

-7.0 

tt 

0.0 

tt 

0.0 

tt 

0.0 

tr 

10.0 

It 

10.0 

tt 

16,0 

tt 

6.0 

tt 

33.0 

tt 

0.0 

tt 

0.0 

tt 

33.0 

tt 

i 4 .o 

tt 

l 4 .o 

It 

2.0 

tt 

-7.0 

tt 

- i 4 .o 

tt 

0.0 

tt 

0.0 

tt 

- 14.0 

tt 

0.0 

tt 

0.0 

It 

0.0 

It 

0.0 

tt 

0.0 

tr 

0.0 

tt 

0.0 

tt 

0.0 

tt 

0.0 

tt 

0.0 

tr 

0.0 

tt 

0.0 

tt 

0.0 

tt 

0.0 

Sec. 

0.0 

mmHg 

6 o.o 

Sec . 

- 8.0 

mmHg 

120.0 

Sec. 

- l 6 .o 

mmHg 

180.0 

Sec. 

- 30.0 

mmHg 

240.0 

Sec. 

~ 4 o.o 

mmHg 


ELEMENT 

NO. 

MNEMONIC 

551 

wk(h) 

552 

WK(12) 

553 

WK(13) 

554 

WK(l4) 

555 

wk(15) 

556 

NK(l6) 

557 

WK(17) 

558 

wk(i8) 

559 

WK(19) 

560 

¥K(20) 

561 

HE 

562 

SV 

563 

CO 

564 

ET 

565 


566 


567 

PSYS 

568 

EDYS 

569 


•570 


571 


572 

PIAB 

573 

PITH 

574 


575 

THETA 

576 

SF 

577 

TTOT 

578 

TAS 

579 

TVS 

580 


581 


582 

GNEW 

583 

PEXIN 

584 


(585)- 597 

. 

598 

WAVEFM 

599 

DPET 

600 

VTiEG 


DEFINITION 

CONSTANT OE 
INITIAL VALUE 

UNITS 

Time (Sec ) , LBNP Steps 

300.0 

Ssec. 

t! ff 

-50.0 

• mmHg 

tl u 

360.0 

Sec. 


0.0 

mmHg 

M W 

400.0 

Sec. 

»♦ •• 

0.0 

mmHg 

>1 II 

tl ft 

0.0 

Sec. 

Tl tl 

0.0 

mmHg 

** I* 

0.0 

SecT 

Finish Time 

401.0 

Sec. 

Heart Eate 

Calculated 

Beats/Min 

Stroke Volume 

It 

Liters 

Cardiac Output 

It 

Liters/Mi) 

Total Peripheral Besistance 

IT 

mmHg/L/Mi] 

Not Used 

* II It - 

- 

- 

Systolic Blood Pressure 

0.0 

mmHg 

Diastolic Blood Pressure 

0.0 

M 

Not' Used 



11 n 




It It « 


Intra-Abdominal Pressure 

0.0 

mmHg 

Intra- Thoracic Pressure 

-1.5 

11 

Not Used 

Body Angle Eelative to Horizontal 

0.0 

Degrees 

Contraction Strength Factor 

0.48 

- 

Heart Period 

0.833 

See. 

Period of Systole 

0.19 

Sec. 

Period of Diastole 

0.36 

Sec. 

Not Used 

' 

— 

tr ti 

Gain Constant 

-0.015 

- 

Pressure Set Point 

88.0 

mmHg 

Not Used 

-- 


Not Used 



Output Option 

340.0 

Sec . 

Print Interval 

10.0 . 

Sec. 

Total Leg Blood Volume 

0.0 

ml 



COMMON/ST ATE/x ( 50 )* XDOT ( 5D ) 

2/sTATe/(,|RA .QRV *(JLA»qLV tqPA » Q PC »qPV»qAA *qARC» q LAA»qUTA »qLTA iqUABA » 
3G)l.ABA,cjClLL»( li L&SA,qLGAR»QLGcAP*Ql.&yE»QLG5V*QrEV»QABVC*qTHVC,ySPVC» 
*<QL0C,quPC»G)HCAP»QH5V»QJV,QC0R,QCSMA,QIMA,qCSmV,QP0V,QIHV, 
5QR£NA,QRALE*qRENv ,QRET , Qp I 1 Q ) ,QSKB 

&>'STATE/CRA,Chiv»CLA*Cl-V»CpA» C p C ,cpVtCAA»CARC»Ct-AAiCUTA»CLTAtCUAbA» 
7CLABA ,CC ILL. CLGS A, CLGAR»CLGVE,CL6S Vi CFEV ,CABVC,CTHVC »CSP VC i 

8CL0C »cupc .CHS <t »CJV .CCS MV ,c I m V ,CPOV > 

?CrENA,CRENV»CDI i8) 

A/STArE/PRA.PKv.PLA.pLV.PpA.ppC.PPV.pAAiPARC.pLAA.pUTA.PLTAiPOABA. 
BPLABA ,rCILL»PLGSa ,plgAR.PLGvE,PLgSv.PFEV . pAByC .PTHVC .PSPVC . 

CPLOC ,PUPC ,PHSV »P JV .PCSMV ,PlMV , PPOV . 

DPRE , 'iA,prtENV»PDl 16} iPM,PMc 

common /state/ 

ERPA.RRV.RHV.kAV»RPA.RpC.RPV,RARC.RLAA.RUTA»RLTA»RUABA. 

FRcABA^RCILL.RLGBA.RLGAR.RLGCAp.KLGVE.RLGsv.RfEV.RaBvC. 

GRTHVC.RSPVC .KLOC »R UPC .RHCAP ,RhSV »RJV »RCOR ,RCSMA .RIMA .KCSMV » 

HRPOV.RIMV.RRlNA.RrAlE.RREFF.RhENV.RdUIJ.RSKB 

I/STATE/FLPA.rLAA»FLARCiFLLAA.FLUTA,FLLTA»fLUA8A» 

JFLLABA»FLClLu>FLCSMA»FLlMA.FLRENA»FL0M(8l 

K/STATE/v(50),VU<50),PG<3q),pE X T<32),E(4) 

*.PRN.A&IAS.T t jiAS,TTilAZ.rriODEL l SPACEt2).£CbVtpTlS.BSL6 

L.Z( t »0),wK(20} l HR,sV,C0»RT.PEX,»V,PSYSiP0y5,FREfi 

H.V02DOT.AVD.P1AB, pITH, PMp, TpETA, SF 

N . T T 0 T »TAS*TVStCl »c2,GNEft',PEXlN»Tf< 

* .tiUMfly ( 13) .IvaVEFm,OPRT»VLEG 

COHNON/PLTBUh/NBUF.XBUFt 181 ] ,yBUM 181 ,8) »NW<8) »KST0pp,PGU(2) 

COMMOn/PnTBUF/n ( 8 ) » KPLT 

common /wave/ nbufWiNwv(b) .xBufwi lai j .ybuewi jbi ,8) 

dimension nv ( s j »pgdt { 2 > 

data nv/204, 224 , 208 , 211 , 212 , 214 , 21 s, 231 / 

data kr/’n’/.pgd/* »,* ^/,PGDT/*i/i^AVE , » *form*/ 

call a joit ) 

♦ ♦••long TERM VASCULAR STRESS RE L A X A T I ON « * * • 

•♦•♦INPUT BLOOD SHIFT PROTOCAL IN DATA BvS**** 

DaY=DuMMY(1> 

.dimension BVS (200) 

DATA avS/0.,0..5. l 236,,9,,266,,12.,355.,16,,398«,l9.,383., 

&22, .4^3. ,25. ,413., 184*0«/ 

I F ( B VS ( 3 ) •£Q*0»*OR»DAY.Eq«Q,)gO TO /b 

71 D 0 72 1 = 1 ,99,2 

BvSD= ( BVS( 1+3 ) -BVS < I + 1 ) > * ( Tp-BVS ( I ) ) / < BVS ( 1 + 2 ) -BVS 1 I ) ) 

& + B V S { 1 + 1 ) 

t F ( T D . 1. E,BVS<j+2).AND.TD,GE.BVS(I))G0 TO 73 

72 continue 

73 B'JOT= ( SVSD-8 VSN ) / 1 4 . 

B VSN = b V SN+ . 1 * BOOT 
T0= • 1 + TO 

I F { TD.LT.DAY ) 60 TO 71 
VU0T=VU(18)+VU(19)+VU120) 

DPCT=-(Q.592*BVSN)/VU0T + 1. 

V U { 1 8 ) =DPCT * VU ( 18) 

Vlj ( 1 9 ) = DPCT*v 0 ( 19) 

VU( 20 ) -OPCT*VU ( 20 ) 

8SLG=B VSD 
75 CONTINUE 

CALL CONTRL(T) 
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C4LL CVS(T) 

1 call algo<t) 

IF IT.GT.TTHAZ) THE T A = 0 • 

if (t.lt.wkuq) ) so to i 

IF (KPLT » NE • Q ) Go TO 8 
write (6,2) 

2 FORMAT (*ODO YOU WISH TO PLOT BUFFERED OUTPUT DATA? <Y/N)») 

Read t b » 3 ) k 

3 format , ( i a l ) 

if (k.eo.kq) go to ho 

H KSTOPpsl 

call plot 
call newpag 

WRITE (6,5) 

5 format (*odo you wish to print tabular output data? iy/N)*) 
read ts, 3) k 
If <k*eq.kq> go to ho 

call newpa-g 

write (6,10) N W i ( N ( I ) , I = 1 , 8 ) 

10 ForMAT(///* SECS* ,8 ( 2X , A6 ) / • 5?9«, a I8/* •****>, 

* a ( * *****»)) 

Do zo 1 = 1 ,NBUF 
LP=XBUF( I ) 

PT = LP 

IF (MOD* I ,30) .EQ.O) CALL PAgE3 

20 write ( 6 , 30 ) pt * ( ybuf ( i » j) , j*i ,a) 

30 format (f7. i ,aF8.3) 

HO WRITE 16,85) 

85 F0RMAT(*ODO YOU WISH TO PLOT PRESSURE #AvEFOrM DATA? (Y/N)*) 
read t b , 3 > k 
if (k.eo.ku) call exit 

N(JUF = MBUFW 
PGD ( 1 ) =PGDT ( 1 ) 

P6D( 2 ) =PGOT (2) 

DO 50 1=1,8 
N« ( I ) = N ft V ( I > 

N { I ) = N V ( I ) 

Do 50 U= 1 , NBuFw 

IF (I«£tf.l) X3UF { j JaXBUFW ( J ) 

YPUF ( J, I )=Y8uFW( J, I ) 

50 continue 

.N-vk20 = xBUFW ( NBUFW) + 1 .5 
WK ( 20 ) =NWK20 
GO TO 8 

end 

subroutine cvsm 

C GE CARDIOVASCULAR LBnP MODEL 

c controlled system 

common /state/a (50) ,xdot(&o) 

2/STATE/DRA,QRV,yLA»QLVtQPA»QPC»QPV,QAA,QARC,oLAA*oUTA,(JLTA»0UABA. 
30LABA,oCILL»wLGSA, Q'L.G AR , QL G C A P » QLG VE » Q LGS V »Qf£V»QABvC'» QTHVC.QSPVC, 
HQuOC »QUPC ,QHCAP , QHSV »QJV ,QCOl« ,QCSMA ,Q IMA ,uCSs'V ,OPOV ,OiMV , 
5QRENA,QRALE,yRENv,iiRET»QD(10) t QSK8 

6 /STATE/CRA f CRv »CLA iCLV »CpA » CPC»CPV iCAA iCARC i CLAA * CUT A »CLTA tCUABA , 

7claba,ccill»clgsa,clgar,clgve,clgSv,cfev»ca8vc,cthvc»cspvc> 

8CL0C,CUPC,CHSV,CJV,CCSMV,CImV,CP0V, 

9CREMA ,CRENV,CD( 18) 



A/STATE/PRA»PRv»PLA»PLv*PpA»ppC»PPV»pAA»PARCipLAA»pUTAiPLTA#pUABA, 

BPLABA,pCILLiPLGSA,PLGAR»pLGvE:*PLGSv.PFEV.pAbvCtPTHVC»PSPvC» 

CpLOC,PUPC|PHSviPjViPCSMV,PIrtV,PPOV» 

DpRENA ,pRENv i PD ( 16 ) >PM,PMC 
COMMON/STATE/ 

ERRA»RRv»RMV»KA V iRpA*RpC»RPV*RARC»RLAA|RUTa*«L t A»RuA6A» 

PRLABA,HCILLntLGSA,RLGAR.»RLGCAp*RLGVE»RLGSV»RFEV*RABvC». 

GRTHVC ,RSPVC |RL0C*RUPC|RHCAP,RH5V|RJV »RCOR ,RCSMA*RIMA tRCSMVf 
HRpOV * R IMV tRRENA »RRALE .RREFF , RRENV »RO U 1 ) »RSKB 
I/STATE/FLPAiFLAA,FLARC»FLLAAi FLUTA t FLLTA »FLUABA» 

JF!_LABA»FL.CILl»FLCSMA>FLImAiFLRENAiFLDM<B.) 

K/STATE/V(5Q),VU<5Q),PG(3Mi»p£xTf32),£{M) 

• » PRN » AS I AS i Tb I AS » TTHAZ » Tj-iODEL ,SPAC£ t 2 ) ♦ ECB V » pT I 5 »8SLG 
L*Z(‘<O),*VK(20) f HR»SV,CO,RT,PEX,iV l PSYS.PDYS > FREt} 

M, vQ2D0T»AVD>PIA6»pITH,pMp,THETA,5F 

N, TT0T,TAS*TVS,Ci»c2,GNE4,PExlNtTR 
** DUMMY! 13) tAAVEFH.DPRT.VLEG 

DIMENSION PRS < 1 ) » CUP (32) » R5q ( &Q ) > F I N R ( 1 2 ) 

EQUIVALENCE (PRS »PRA ) , ( CHP ( l ) ,CRA) » (R50C i ) »RhAI • ( F INR( 1) »FLPA) 

C T IS ELAPSED TIME 

C TT IS A CLOCK FOR qNE BEAT 

tt=t-tsve 

IF (TT-TJOT) 1002,1001,1001. 

1 o0 1 TsvE=T 

c** »* . 

Co = X ( 33 ) /TTO T* . 06 

X ( 3 3 ) = 0 • 0 

PM = X( 10) / T TO 1 

X< 10)=0»0 

PMC=X ( 1 3) /TTOT 

X ( 1 3 ) =0*0 

Pr>{ 1 ) = X I 3.7 ) / T T 0 T 

X ( 3 7 ) = 0 « Q 

SV=TT0T/60.*C0 
RT=PD ( 1 ) /CO 
I F ( T . GT * 35, ) U 0 T Q 993 
D I FF=-V ( 50 ) +v ( S'? ) 

Xt 1 8 ) = X I 18)+QIFF*q,6 
X ( 1 9 ) = X ( 19)+U1FF*q,H 
993 CONTINUE 

• psys=sys 
poy5=dys 
call xiom 

1 1 0 call contrl ( 1 } 

TEMP=TEMP+0.2 
I F ( TEMP-T ) 110*111,111 

111 CoNT I NUE 
Sy 5 = 0.0 
DYS=1000, 

TT0T 3 6Q. /HR 
TAS=Q. l0+0.09*Tr0T 
T^S=a. 16+0.2 u*TT0T 

C * * * * LbnP **** 

If CT.LT.41. .or. T ♦ GT • • ) go TO 20 

DO 10 1=1.32 

10 PG (I)=SiNlT HE TA/57.2958)#Z(l)*l. 05*980. /1332, 

20 continue 



IF I TMODEL.GT.Q* ) GO TO 26 
Do 25 1 = 1 , 18,2 
IF (WK ( I) •LT.O, } go TO 30 
IF (T.GT.WKli)) PLBnP = -Wk ( I + 1 ) 

25 CONTINUE 
GO TO 30 

C 26 If (AqS(THETA) .LT«l»E-5 , o R • T«LT* < ip*) GO TO 30 

26 if t A8SITHETA) .GT. 1 .E-5) T ! i_ T D= 1 • 

IF < AB5( THETA) ,GT. 1 .E-5 ) GO TO 30 
■IF (T IUT0.GT.2. ) GO TO 3o 

Do 28 1=1,32 
28 P G ( I ) = 0 • 

T I L T 0 = 3 • 

30 continue 
vleg=o. 

DC 201 1=15,20 
VLE& = VLEG + V ( I ) 

201 PEXT( I )=-PLBNP 

VLEG=VLEG-VU(ia)-VU{I9>-VU(20) 
lF(T«GT«l(iK(3-),OR,BSLG»LT,l»).GO TO 301 

IF(PG8lAS*UT,2.)PGBIAS=2, 

DvL = 5b*l«-VLEG-BSLG 
lFI0VL,LT.-i2Q.)PGBlAS=PGBlASt#2 
IF (DVL.GT*5 . >PGBI aS = PG8IA5-. 1 

IF<DVL.GT»-12U.*AND.DVL*LT.-5,)-PGBIaS = PGBIAS+.05 
301 continue 
tempv=o* . 

Do 16 1*1,32 
1 6 TEMP V = TEMPV+ VU ( I > 

£-CBV=v<50l-VLE6-TEMPV + vU(18)+vU<19)+VU(2cn 

& +VU { 1 B) + VU ( 16 ) + VU (17) 

in02 continue 

C*** FOR WAVEFORM PLOTS * SET WAVEFm*598» TO T^E dEsIREO 

common /wave/ nbufw , nwv ( 8 ) » xbufw ( i a i ) , y&ufw ( i 8 i , 8 ) 

DATA N*V/» PLV PLOC PAA PUTA PLT a PLA 3 A PCILl PRENA*/ 
data nbufa/o/ 

IF (AAVEFM.LT. 0.5) GO TO 220 
IF (nbufw.eq.o) wvpt = «va VEFM-2, 

If (T.LT.AfVPT .OR, T.GT.aAVeFM) GO TO 22a 
VVVPT = v<VPT + O.Ul IS 
NRUFft=NBUFW+ I 

IF (NBUFW»GT.181) nbuf W* 181 

XSUFW(NBUFW)=T 

Y S U F-W ( N a U F V, , I ) = P L V 

Yf?UFW(N8UFW,2)=PL0C 

YBUFw(NBUFW,3) =PA A 

YSUF'-V ( NBUFW , *1 ) =PUT A 

YBUFW{NBUFw,S)=PLTA 

Y8UFW(NBUFW,6)=PLABA 

Y 8 U F v\ { NBUFW , 7 ) =PC I LL - 

YaUFW ( N 6 UFW. 8 ) =PR£NA 

220 continue 

IF(TT-TAS) 1 , 2,2 
1 SAS = SlN(3»l i U6*TT/TAS) 

El 1 )=G,Q5 + 0.L)5*SAS*SF 
E(3)=0.12+0.1H*SAS*SF 
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R S pVC=(2D.+SAS*^0.)/1332. 

RT.HVC’* 10. + SAS*20.)/1332. 

Go TO 3 

2 E( l 1*0,05 

E { 3 »*0. 12 
RSPVC= , 0 1 SO 1 5 
«THVC= ,0075075 

3 Tv = TT -0 • i 
IF(TV,LT.O.O)TV-O.0 
If<T v -TvS>4,S,S 

4 SvS*SlN(3« Ml6*Tv/TvS.) 

E(2>=»0,0175+,39*SF*SVS 
E(4)=0,Q2 + 1 .50*SF*SVS 
GO TO 6 

5 E(2>=0,0175 

E ( 4 ) =0.02 

6 continue 

do 11 1=1,4 

11 CMP ( I ) =1 */E ( 1 ) 

IF C X l 4 ) « LT .0 , 0 ) X < 4 ) =0 .0 
C COMPOTE VOLUMES 

V { 5 0 ) = 0 • 0 
DO 55 1=1.32 
V ( I ) *VU ( 1 ) +X l 1 ) 

55 VC SO ) xy ( 50 ) +V l I > 

v( 50) = V <50 ) - y l 9 ) -V ( 1 U -VC 1 3 } -V ( 1 0) -VU( is )-VU{ 19 ) “VUC 20 ) 
DO 71 1*1,12 

71 PEXT(I1=PITH 
PEXTC22)=PITH 
PF.xT ( 23) =P 1 Th 
DO 72 1=28.32 

72 PEXT ( 1 ) — P I A B 
PEXTC 1 4 ) = P I A 8 
PEXT ( 21 >=P1 As 

C COMPUTE PRESSURES 

DO 12 1=1,7 

12 PRS < I ) =X ( I) /CMP < U+PtxT ( I ) 

DO 13 1=15,17 

13 PRS < I ) =x { I) /CMP ( I) + PEXT { I ) 

DO 15 1=18,20 

PftSC I ) =X < I ) / VU C n *2«+PEXT ( I ) +pTI S + PQB I AS-2 . 

15 IF C x ( l ) .GT, VU ( 1 ) ) PRS < I) = 

& C X ( 1 )-vO(I ) 1 7 CMP ( I >+PEXTll)-+prIS + PGBlA5 
Dq 18 1=28,32 

18 P RS < M=X{ I J/CHPU )+PEXTtI ) 

P A A = X ( 8 1 /CAA + P I TH 
PUTA=X(29)/CUTA + PITH 
PLTA = x< 12)/CLT.A + PITh 
lF(PUTA.GT.SrS)SYs=pUTA 
.IFCPUTA«LT.DYS)DYS=PUTA 

PLARA=PIAB-11. 826+0. 002265*v< 18)+0,00977 34 ♦V(14)*v<18) 

plaba=x C 1 4 ) /claoa+piab 

C*,+* ABDOMINAL VENA CAVA 

PaBVC=- 5. 4996+0. 082 4 08*V(2i)-0.00033598*V(2l)*V<2l) 

,+0, 00000045026* V (21 ) * V <2 1 ) ♦ V C 2 1 ) 

IF (XC 2 ll.GT. 200 . .AND, xC 2 l>,LT. 3 S 0 .) 

, PABVC=*34/1SO.*(xC21)-2qO.)+1,15 



c*»** thoracic vena cava 

PTHVC*«5»5006+0. 1 1 59 * V ( 22 >-Q . 00065 87 3 * V I 22 > * V ( 22 ) 
.♦D.00a0Cl236*V(22)*V(22)*V(22) 

IF <X(22) •GT.ISU. .AND, X I 22 ) . LT . 2So . ) 

, ptHVC=*3/ 1 OU. * (X(22)~150. ) + 1.16 

PSPVC = -3,'+V9? + o*?2 1 <09*x(23I-a.OA22H6*X(23)*Xt23l 
»+fi,0 0Q63‘»8S*XI23}*X(23)*XI23) 

PTHVC = PIHVC + PEXU22)+TBIaS 
PABVC = PABVC+PEXT( 21) +ABI AS 
PSPVC=PSPVC+PEXT(23) 

QRA= ( PRA-PKV ) /RRA 
C HEART MODEL 

If (PRa.lt « pr v j q r a = q . o 

QRV=X l Q9 ) /FLPA 

IF (NRV.LT«0*0)QRV=0.0 

XDOT(O9)=PRV-PPA-rRV*0RV 

IF{XDOT(09)»LT.U.q.aND.QRV.E«.0.O)XDOT(O9)=O.O 
<3 LA'- ( PLA-PLV ) /RM V 

if (Pla.lt »plv i o c a = o • o 
QL V-X ( I 1 ) /flaa 

IF { WLV.LT .O.OJQLVssO.O 

XOOTt 1 1 )=PLV-PAA+PG{8 )-RaV*qLv 

I F ( XDOT ( 1 1 ) «LT .0.0 .AND. liLV.EQ ,0.0 ) XDOT ( 1 11*0,0 
C PULMONARY circulation 

QPA= ( PPA-PPC ) /HP A 
QPC= < PPC-PPV ) /RPC 
Q P V - I PP V-PLA } /RPV 
C ARTERIAL MODEL 

• 0 tJ T-A = X < 3 4) / F L L T A 

XD0T(3 < n=PUTA-PLTA+PG{l3)-R L TA*QUTA 
QLTA^X ( 3 S ) / F t_ L A d A 

X00Tt3b)=PLTA-PLABA+PG(lS)-RLABA*QLTA 
QLABA=(PLABA-PCILL+PG(15)) /RCILL 
QA A“X < 3 6 )./FLuTa 

XD0T'(36l=PAA-puTA + PGlI2)-RUrA*QAA 
C LEGS 

QClLL*<PClLt+PG( 16 )~PLGSa)/RLgSA 
OLGSA= ( PLGSA-PLGAR ) /RL&Ar 
QLGCA p=tpLGAH-pLGvE)/RLGcAp 
RLGVE= . 07507b 

IF (QLGVE.LT-U.U)RLGVE=67, 567567 
Q L G V £ = { PLGVE-PLGSv > / R L G V £ 

«LGSV=. 075075 

IF <QLGSV,LT.0,0)RlGSV=67, 567567 
QLGSV={PLGSV-P6<I9)-PFEV)/RLGSV 
C VENOUS MODEL 

RFEVs:. 021021 

IFIQFEV»LT.0.0)RFEV= 67. 567567 
0FEV=(pFEV-PGC20)-PABvC)/RF£V 
0ABVC=(PABVC-PG(21)-PTHVC}/RA8VC 
QTHVC=(PTHVC-PG(22)-PRAJ/RThVC 
QSPVCc (PSPVC-PG ( 23 I-PRA 1 / RSpVC 

C head+arms 

SL.0C=(PAA + PG{2R)-PL0C)/RL0C 
QUPC= ( pLOC-PUPC ) /RUPC 
QhCAP=(PUPC-PmSV)/RhCAP 
QHSV=(PHSV~PJv)/RH5v 
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RjV=. 00^301 

IF(QJV.LT«0«0)RJV=67*567567 
Q JV=(PJV-P<5 i 21) -P5PVC ) /RjV 
C CORONARY CIRCULATION 

QCOR= l pAA-pKA ) /RCDR ' 

C continuity for venous return 

QRET = qSPVC + QTHVC + qCOR' 

C HEPATIC-SPLANCHNIC circulation 

QCSMA=(PLTA-PCSMV)/RCSMA 
QCSMV= ( PCShV-p.pOv ) /RCSMV 
QPOV=(PPOV-PTHvC)/RPOv 
c renal circulation 

QRENA= (.PLABA-prEna ) /RRENa 
QR AL£= ( FRENA-PKENV >/(RRAlE+RReFF) 

QRENV=(PRENV-PABVC)/RRENv 
C SKELTON.bOnE MARROWiAND other 

Q5KB=(PLABA-PA8VC)/RSkB 
c state variable DERIVATIVES 

X DOT ( I ) =QR E T - ijR A 
X(jOT<2)=qRA-wRV 
XDOT ( 3 )=QPV-LLA 
XDOT ( A ) = ii L A — l L V 
XDOT(S)=qRV-nPa 
XD0T(6)=QPA-ikPC 
XDOT « 7 ) =GPC-iyPV 
XD0T<8)=yLV“wAA-QC0R~QL0c 
XOOT { 10)<=PAA 

XOOT( 12) = QUTA-G)LTA-QCSMA 

XDOT ( l sQLTA-yLABA-QRENA-QSKB 
XDOT l ISJ=QLABa-G(CiLL 
XD0T(16)=QClLL-NLGSA 
X p 0 T ( 17 )=QLGSA-QLGCAP 
' XpOTI IB )=QLGCAP-QLGVE 
XD0T(i9)=QLGVE-0LGSV 
XD0T(20 I=QLGSv-WFEV 

XDOT I 21 )=6!FEV-QABvC + QRENv + QsK6 

XDOT ( 22 I-QABVC+OPOV-GtHVc 

XDOT ( 23 )=QJV-Q5PVC 

X 0 OT{ 2 R)=QLOC-yUpc 

XD0T{2&)=QUPC-yHCAP 

XD0T(26J=GHCaP-QHsV 

XOOT ( 27 l=*OHSv-QJV 

Xf)0T<2B)=QC5MA-QCSMV 

X DQ T ( 29 ) =Q A A-yuT A 

XD0T(30)=GC5MV-GP0V 

XDOT (31 )=QRENA-(*RALE 

XD0T(32)“QRALE-yRENV 

XD0T(33)=0LV 
XOOT l i 3 I =PL0C 
XpOT ( 37 ) =PUT A 

Return 

end 

subroutine conirlit) 

CCMMON/STATE/X«50)»XDOT(50) 

2/STATE/biRA*QKViGLA*QLV*QPA»QPc»QPViQAA*QARCtQLAA*QUTAiGLTA>QUABA* 
3QLABA,GCILL»wLGSA,QLGARjQLGcAp»NLGVE*G|LG5V»!>iFEV»QAbvCiUTHVC,GSPVC* 
‘•QLOC »UUPC , QHCAP i QHS Vi QUV , QCOR ,QCSMA , Ql MA tuCSriV tQPOV ,QI HV » 
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5QRENA,QRALE.yREI'tV,QRET*QDllO) 1 QSKB 

6/STATE/CRA,CRV»CLA»CLV»CpA > CPC»Cpy*CAAiCARC*CLAA.CUTA,CLTA»CUABA* 

7CUABA»CClLLiCL(iSA,CLGAR»CLGvE|CLGSV»CFEV»CABvC»CTHVC»CSPvC» 

BCL0C>CUPC»CHSV»CjviCC5MV,C!mV,CP0V, 

9CRENA ,CRENV *CD t 18 ) 

A/sTATE/PRA*PRv*PLAfPLV»PpA»ppC*PPV*pAAtPARC*pLAA»pUTA»PLTA»pUA8A, 

BPLABA,pCILL*PLGSA,PUGAR*pLGvE,PUGSV»PFEtf ,pAByC ,PTHVC tPSPVC *■ 

CP|_OC »PUPC »PHSV »PJV tPCSMV , P!mV ,PPOV » 

DpRENA»pRENv»PD( 16} , pM-, pMc 
COMMON/STATE/ 

ERRA »RRV »RMV » RAV * RPA » RPC »RPV »RARC »RLAA ,RUTa »RlTA »RUABA.» 
FRlABAjRCILLiKLGSA, RLGAR »RLGCAP .RLGVE »RL6SV »RpEV »ftAb VC » 
GRTHVCtKSpvC»kLOC»RUPC»RHcAP,RHSV»RJV*RCOR,RCSMA»RlMA»RCSMV* 

HRPOV ,R IHV » RRENA t RRALE iRREFF ,RRENV »RO U 1 > , R5K0 
I/STATE/FLPAiFLAA,FLAHC»FLLAA»FLUTA,FLLTA,FLUaBA» 

JFLLABA .FLCILl »FLC 5rtA »FLlMA.FLRENA»FL0M(8) 

K/sTATE/V(50)iV0(S0)*PG(3^},pexTC32),E( < l) 

*»pRNiABlAS*TB!AS»TTHAZ»TM00EL,SPACE(2)»ECbV»priS»BSUG 

L »2( HO ) f 6Kl20) , HR ,SV ,CO .Rj ,PCX , W ,PSTS »PDYS ,FReQ 

M»v 02D0T » A V D » P I A £l , p I T H t P H P , T‘H e t a » s f 

N.T TOT, IAS* TVS, cl > C2 , GNE'-V , PE X I N t T-R 

*, DUMMY! 13), WaV£FM,OPRT*VLEG 

CONTROLLED RESISTANCES 
RrALE = 6U0 • / 1 3 3 2 * 

RSKB=686Q./1332» 

RCSMA= 1 023U • / 1332. 

RHCAP=4S/0./1332, 

RCOR=205DO,/ 1 332, 

RLGAR=7250,/ 1 332 . 

R RE FF = 2 *744 

IF ( T • LT * 5 • ) SFS=SF 

If ( ThET A • GT , 4S * .AND. T.GT.40.) GO To 600 

R C S M A = 1*87 

RLGAR=600Q./1332. 

GO TO 610 
600 RreFF*3«7S 
SF=.64 

6 1 0 CONTINUE 

If I ABS I THETa ) ,LT . 1 . E-5 1 SF=SFS 

PRESSURE REFERENCE FUNCTION PR 

E 3*E 2 
E2 = E0 
Eo*EN 

EN=PRN-PR/2.-PMC/2, 

Eft= < E3 + E2 + EO + EN > /4 . 
gain=gnea 
pavg=pd < 1 ) 

IF (PavG.LT. 95, * A N D • pA V G,gT,89.) gAIN=1.B5*GNEW 
IF ( P A V G * LE • 6 9 . ) GA 1 N = 4 • 1 *GnEv» 

Ddp=0.533 + (ER*GAIn 1 
IF (ODp.LT «Q*Q)0Op=O»Q 
TOT = 0 . 300 + 0 OP 
Hr=6O,/T0T 
Return 

end 

subroutine algq<d 

integration algorithm 
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common /STATE/ X t50 ) I XDOT ( 5a ) 
dimension xosisoi 

lF(H) 1 , 1 ,2 

2 DO 3 1*1 » NOS v 

3 xosm«xooT( I ) 

T*T + H 

CALL CVStT) 

DC 4 I k 1 , N 0 S V 

4 XU ) sri/2,* ( AOOTU ) + XO?( I J ) + x< I ) 

10 RETURN 

i continue 

NqSV=38 
H= , Q02 
GO TO 10 

■■ FmPi 

subroutine x i o ( t > 

COMMON/ST ATE/X t 60 q ) 

COMMON/PLTBUf /N8UF »X8UF-( 1 8 1 } » Y8UF ( 18 I .8 ) »NW <8 ) .KSTOpp 
C0MM0 N/PNTBUF/n18|»KPLT 

dimension a(s ,6) 
data nbuf/1/ 

DATA KY»INlT»hVli8»NWTL/lHN f 0,6H »6H TILT/ 

data nw/’ hr*,* c o * , * s v * , * pm'» 

* ' SYST*,* DIaS*,» L8Np * , • LEG V * / 

Data iJ / 5 6 1 ,563,562»249»567»568,469,6Q0/ 

IF <INIT,GT*0) GO to 200 
I N I T* 1 
MUN = 0 

CALL CDATE(MD) 

call ct i me ( mt j 

WR I TE ( 6 » 5 > MO , HT » MDN 

5 FORMAT!/* CARDIOVASCULAR uBNP/TILT MQOE-L ' * 6 X > A6 , * AT *,A6/ 

* ♦ REFER Tu GE-AGS USER GUIDE TIR 74 1 -MED-4 008 * // 

* ♦ *t*« model includes mod number*i33// 

* ’/TO SIMULATE T1 U T EXPERIMENT. ENTER 1,*) 
read (5,6) x<4?b) 

6 format (f5.o* 

WRITE ( 6 i 7 ) 

7 FORMAT ( *ODO YOU A A N T GRApHIc OUTPUT? (y/N)*) 

READ (5,20) K 

IF (K.NE.KY) KPLT- 1 
9 WRITE ( 6,10) 

io format ( *odo you wish to change initialized data? ( y / n j * ) 

Read ( 5 * 20 ) k 

20 format 1 1 a.1 ) 

IF (k.eq.ky) go to 60 
write i 6.3qj 

30 forma T (' OPLEaSE ENTER I NdEX ( 1 -600 ) » VALUE, CR? (I3»E12.6)') 
Go TO 40 
35 Write -I 6 ,86) 

40 read i s »50 *err=35 3 i.valnew 
50 format i 1 3 ,Ei2 .6 ) 

WRITE (6,55) I.VALNEW 
55 FORMAT ( 4X ,3H*»* , m ,F 1 0 , 4 ) 

IF (I.LT.l .or, I.GT.600) GO TO 60 
X l I J = VALNE6 
Go TO 40 
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60 WRITE ( 6,70) 

70 f0RMAT(*0D0 YOU WISH TO MODIFY THE OUTPUT L I ST? . I Y/ N ) * ) 
read t 5,20) < 

If (k.eq.ky) go TO 200 

WRITE ( 6 I 80) 

80 FORMAT (’OpLEAsE ENTER P OS I T I qN ( 2-9 ) * I NOEX ( 1 -600 ) i cR! ( 1 1 , 1 8 ) * ) 
Go TO 90 

85 WRITE <6,B6) 

86 FORMAT <♦ *READ ERROR**) 

90 READ ( 5 * 1 00 , ERR»85 ) IP, I 

lOO FORMAT! I l , I 8) 

WRITE (6,101) I P , I 
jOl FORMATIMX ,3H*** , 12,18) 

1'F ( IP.EQ.O) GO TO 200 
IF < IP.EQ. 1 ) GO TO 9 

! F (1P.LT.2 .OK • IP.GT.9) Go TO 90 
IF (I«LT,1 • OR » I.GT.600) GO TO 90 

Go TO (90 , 102 , 103, l OR , 105, 106, 107 , 108 , 109)-» Ip 
102 N { 1 ) = 1 

N Sr. ( 1 ) = N W 8 
GO TO 90 
J03 N ( 2 J — I 

Nvi ( 2 ) =N^B 
GO TO 9 U 
1 OR N ( 3 ) = I 

N t* ( 3 ) = NWB 
GO TO 90 
1 OS N<8>=1 

Ny. ( R ) sNWfi 
GC TO 90 
1 0 6 N { 5 ) = I 

N w { S 1 = N W B 
GO TO 90 

107 N(6)=I 

NvV ( 6 ) =NAIB 
GO TO '90 
I 08 N ( 7 ) = I 

N t (7 ) = tv ft B 
GO TO 90 
1 09 N ( 8 > * I 

N h ( 8 ) = N rt B 
GO TO 90 

200 continue 

IF (T.&r, 0.001) GQ TO 215 
IF ( X ( 495 ) ,l_T .0.5 ) GO TO 2 lo 
IF ( N l 7 > • NE *869 ) GO TO 2jO 
NA.( 7 ) = N T L 
H ( 7 ) =57S 

210 WRITE (6,205) |\|,V,|j 

205 FORMAT (/// * SEC S ’ » 8 ( 2 X , A 6 ) / ♦ 599*,8lfa/* ****•», 

♦ 8(» *****»)} 

215 Do 220 1=1*8 

K=N< I ) 

A ( I ,5 ) = X (K ) 

220 A( I , 6 ) = ( A ( I , 1 )+A( I »2)+A< I , 3 ) + A ( I i *)) + A ( I »'5) ) / 5 • 0 
Ip (N(7),EQ*b75 .A«U. T * L T . R.l . ) A<7,5)=0. 

C pRITE(6,300J T» ( A(I ,5) , 1 = 1 ,8) 
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If < (T-PT).LT. I • 1 « 0 R « AmOD IT , A 0S (x < 599 1 ) ) . Qy. I • ) Go TO 310 

IF '(NBUF.GT*] ) SO TO 225 
XBUP (11=0* 

D0 224 1 = 1 .8 

2 2 4 YBUF< l » I J*A< I »&> 

225 N BU F=NBUF + 1 

IF (NBUF.GT.lSIi NBUF*l 8 l 
XBUF < N 8 UF>=T 
DO 230 1=1*8 
230 YBUF(NBUFt I)=A( I ,5) 

IF (KPLT.G-T'O) call plot 

lp=t 

pt=lp 

IF (KPLT.GT.Cj) GO to 310 

ftp 1 TE (.6 » 300 > P T * (A(I*5)*I = 1,8) 

300 FORMAT (F7. 1 *8F8.3) 

IF (X(599) .LI *0*) WHITE (6 .3051 U(I»,I = 1,32) 

30 s format c 7 x, 8 fs. 3 ) 

3 1 0 DO 320 J= 1 * 4 

DO 320 1=1*8 
320 A ( 1 » J ) « A { I * J+ 1 1 

R F. T U R im 

? Ai 0 

block oata 
COMMON/STATE/A ( iQQ) 

CCMMON/STATE/B ( 5d 1 
COMMON/STATE/C (50 ) 

COMMON/STATE/O (50 ) 

C0MM0n/STATE/E(50) 

COMMON/ST AT£/F(20) 

CCHMON/S-TATE/G(28o ) 


DATA A/69 »9 ,215.8 ,38 ,7 ,218,0 ,7 .7 , 10.6 ,27,‘t.,23 .9 *0. *0. , 1“ 10 

1 0. ,23.6,0. , 16, 2,62. 3,62, <1, A. 1 , 126-,Q»205. ,2.5* 1 1- 20 

2 355,2 ,253.5 ,36.4 ,23.5, 3j .2 ,63.4 ,3. l ,258,2*30. , 120.7 , 21“ 30 

3 1 7. 1 ,43 ,7 »5«0, ,0 .0 , 12*0, ,50*0 3I-1QU 
C*„ F L 0 ft 

Data 8/50*0*/ I01-15U 

C** COMr 

DATA C / 4 * 0 , * 1 *2, 1 .7 ,5, 3, .3, 2*0. ,2*.4,0, t , 2 1 ,2**8 * *3,3,956 ,3, 1 4 * *2, 151 — 1/ 0 

1 3*0, , .3, .3996 ,5,3 . .9058,9.&9, 1 .505,6.047 , 17 1-180 

2 .2224 ,2.517 ,5*0. , .3 , 12*0./ 181-200 

C** PRES 

Data D/H8*0* ,90* ,90./ 201-250 

C*« RES 

Data £/ 3*. 0075 0* ». 008634,. 0i5q 2,. 05 255, *0l5022, 2*0, ,,040000, 251“26 u 

I , 04 0000,0, ,.030 000, ,030, .03003, 4. 505 t ,4S05,,Q750Bi, 07508,, 0 2)02, 26 1 -2 7u 

2, Q07 38 , .007508, .01502, .02252, .03378, 3. 43i, .3754, .004302, 15. 39, 2* 3b 27 1-28 0 

3 , 34, 5345,, 2252, ,5255,, 3003, .0 1502, . 45Q4S, 2, 744,. 6498,0. ,0., 2d i -290 

4 9*0, ,5* 15/ 291-300 

C** INrt 

Data F/ * 0OQ7 5 08 , ,0 04 , 2*0. , .004 , *004 , 0 . , *004 , .0Q626 » 1 1 «0. / 3U1-3 2U 

C*, MISC 

data &/48*q.*5ojq..,5ooq*,3o, , a. , 30 . ,o.» 85. *is.,4qo., 61 . 6 , 2 * 0 ., 321-300 

1 0 . *90,5 ,U. *83,5,5. 194,30. ,3U. , 100. , 188* ,40. , 301-39U 

2 3*0. ,50. ,50. ,509. ,28. .562, ,0.0,375. » 391-400 

3 50* , 150. , 18*0. , 401-420 
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* 39*0, ,32*0* ,9*0. ,88. ,2«55, 3. 60,999?. ,Q« , H21-49S 

* 0 , » 0 » 0 » 0 » * 2 . , 0 • , 7*£) , , -7 , , 2*Q , , 996-5lQ 

9 0, ,10, ,10. ,16, ,6, ,33, ,2*0, ,33, ,14,, 511-520 

5 1 9 * > 2 , »-7 , *- l 9 . ,o , , Q, ,-j «f . , i 3*0 . » 521-510 

* n, ,0. ,6 0. »- 8.»120«,-l5,,l30,, — 30,,2l0t,*.10 # , 5^1-550 

* 300. ,-50. ,3*0. ,0. ,400. ,9*-l , ,S01 . , SS1-S6U 

^ 72 • , « 0? ,6,7 ,5*0. ,8.3,0* , 561—570 

7 ,0S50,0.»-l.S,0. ,0.0, ,98, ,833, .19, .36, 96.', - 571-580 

8 1 0 • , - , 0 1 5 , 88 • , 1 9 * 0 • » 390 t , 1 Q , , 0 . / 581-6Q0 

E N D 


EN d ONSITE PRINTOUT ON MARCH 27, 1979 AT GS:iO:r3 

DB3~Q03‘t32*TpF$(Ql * P XX ( Q ) 
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Tilt Example 


CARDIOVASCULAR LENP MODEL £50174 AT 130341 

PEFEF* TO GE-AGS USER GUIDE TIR 741-MED-400« 

*♦♦♦ MODEL INCLUDES MOD NUMBER 0 

TO SIMULATE TILT EXPERIMENT ENTER 1 

>1 . 

I'O YOU WISH TO CHANGE INITIALIZED DATA' 7 i Y,'N 


PLEASE ENTER IMDEXc 1-60 CO , 
>575 70. 


VALUE > C P ; < 1 3 » E 1 £ . G 


♦♦♦ 575 


7 0 . 0 0 0 0 ‘ 


♦♦♦ 0 


.0000 


DO YOU WISH TO MODIFY 


THE OUTPUT LIST 7 


f Y - N > 


SECS 

HR 

CO 

59 3 

561 

5 6 “< 

♦♦♦♦♦ 

♦♦♦♦♦ 

♦♦♦♦♦ 

£ 0 . 0 

6c' . 373 

6.473 

4 0 . 0 

6£.Z33 

6.473 

60.0 

79 . 330 

5.618 

8 Of . i j 

30.807 

5.546 

1 0 0 . 0 

8 0 .665 

5.554 

1 £ 0 . 0 

30.473 

5 . ~i5c! 

140.0 

30.541 

5.551 


SV 

PM 


3YST 

562 

£4? 


567 

♦♦♦♦♦ 

♦♦♦♦♦ 

♦♦♦♦♦ 

.104 

90 .368 

1 £6 

.4 04 

.1 04 

90 .353 

126 

. 437 

.071 

89.973 

123 

.01 1 

. 069 

89 . 489 

1£4 

. 698 

. 069 

39 . 5£0 

123 

.040 

. 069 

89 .610 

125 

.593 

. 069 

39 . 596 

1££ 

.365 


DI AS 

TILT 

LEGV 

568 

575 

600 

♦♦♦♦* 

*’♦♦♦♦ 

♦♦♦♦♦ 

7 £ .642 

. 0 0 c 

584.595 

72.603 

. 000 

534.554 

33.635 

70 . 000 

954.659 

SO. £34 

70 . 000 

933 .101 

31 .826 

70.0 0 0 

938.270 

81 .934 

70.000 

938 . 1 56 

81 .303 

70.000 

933 .£01 



LBNP EXAMPLE 


#X«T 

CARDIOVASCULAR L»NP/ TILT MODEL DM374 AT 131531 

REFER TO 6C-ACS USER GUIDE TIP 74i-HED>4ii8 

><M MODEL INCLUDES MOD NUMBER « 

TO SIMULATE TILT EXPERIMENT ENTER 1. 

> 

DO YOU MANT GRAPHIC OUTPUT? (Y/N) 

>N 

DO YOU UISH TO CHANCE INITIALIZED DATA? (Y/N) 

>Y 

PLEASE ENTER INDEX! i-8M># VALUE# CRI (I3.E12.6) 

>589 3#. 

*<* 999 30* Ml# 




M* 

0 

.000# 

DO 

>N 

YOU 

NISH 

TO MODIFY 


SECS 

HR 

CO 

598 

561 

563 

MM* 

0**6* 

***»» 

30.0 

61.893 

6.513 

60.0 

62.905 

6.616 

90.0 

64.695 

6.507 

120.0 

64.711 

6.488 

1C0.0 

66.753 

6.504 

llfl. f 

66.275 

1.466 

210.0 

it. 579 

6.452 

240.0 

19.299 

6.472 

270.0 

72.063 

6.426 

300.0 

72.310 

6.466 

330.0 

70.909 

6.960 


OUTPUT LIST? (Y/N) 


SV 

PM 

SYST 

562 

249 

567 

»***9 

***** 

***** 

.106 

90.361 

125.103 

.105 

90.388 

126.068 

.101 

89.682 

122.552 

.100 

89.659 

122.418 

.097 

•9.359 

121.138 

.067 

99.291 

121.128 

.063 

•1.701 

119.253 

.099 

89.994 

119.291 

.088 

88*284 

119*138 

.099 

88.330 

118.144 

.083 

•7.301 

114.308 


DIAS LBNP LECU 
968 469 6fi 

IMM ***** MM* 
73.294 .009 553.947 

73.264 .009 553.530 

72.764 '*8.000 625.819 

72.839 >8.000 626.039 

72.978 >16.000 896.727 
73.042 >16.000 690.946 
73.899 >30.000 626.101 
73.209 >30.000 025.007 
73*766 >40.000 917.365 
73.706 >40.000 917.123 
72.787 -50*0001009.134 



GRAPHIC OUTPUT EXAMPLE 


29 


exei 


CHRDIGUASniL.HR 
REFER TO EE- AGS 


LBNP/TILT MODEL 270374 AT 132341 
USER GUIDE TIR 741 -MED -4008 


**** MODEL INCLUDES MOD HUMBER 0 


TU SIMULhTE TILT EXPERIMENT ENTER 1. 


DO VOU WANT GRAPHIC OUTPUT? (. V/N ) 

DO YOU WISH TO CHANGE INITIALIZED DATA? <Y/N> 

DO YOU WISH TO MODIFY THE OUTPUT LIST? CY/N) 
XN 


SECS 

HR 

CO 

SU 

PM 

SYST 

OIAS 

LBNP 

LEGU 

593 

•561 

563 

562 

249 

567 

568 

469 

680 


imi 

***** 

***** 

***** 

***** 

***** 

^wk 

***** 


TYPE SHIFT-OUT SO > AND RETURN— > 


>Y 4. 


GRAPHIC OUTPUT*' Y, N, S X- TIME IHTERUALS.* STARTX, STOPX, (. A2, 3F5 . 0 > 


HR 

PLOT (. Y, N, S 
.>Y 

CO 

PLOT* Y • N • S 

* . i,t 

I 

SO 

PLOT* Y,H,S 
>Y 

PM 

plot*:y,n,s 

>M 


Y SCALE 

:• LOC HIGH LOW 

1. 130. 50. 

Y SCALE 

> LOC HIGH LOW 

2. 10. 5. 

Y SCALE 

> LOC HIGH LOW 

2. .15 .05 

Y SCALE 

> LOC HIGH LOW 


<A4,8X,F4.0,2F6.0> 
C A4, 8X, F4 . 0, 2F6 . 0 > 
*:A4,8X,F4.8,2F6.0? 
(A4,8X,F4.0,2F6.0> 


-VST Y SCALE 

PLOTCY,H,S> LOC HIGH LOW 
>V 3. 150 50. 

DIAS Y SCALE 

PLOTCY,N,S> LOC HIGH LOW 
'Y 3. 150. 50. 

LBNP ' Y SCALE 

PLOT*: Y, H, S > LOC HIGH LOW 
>Y 4. 5. -55. 

LEGO Y SCALE 

PLOT* Y, N, S > LOC HIGH LOW 

>N 


*!A4,8X,F4.0,2F6.0> 

*!A4,8X,F4.0,2F6.0> 

CA4,8X,F4.0,2F6'0) 

*:A4,8X,F4.0,2F6.0) 
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WAVEFORM GRAPHIC OUTPUT EXAMPLE 


DO YOU WISH TO PRINT TABULAR OUTPUT DATA? rY/f|> 

. H 

DO YOU WISH TO PLOT PRESSURE WHUEFOR.fi DATA? OfVN> 

^ I 


WAUEFOPTI GRAPHIC OUTPUTS Y,N,Sy. TIME INTERUALS. STARTS, STQPX, < A2, 3F5 . 0 > 
PLU 


>Y 


PLOC 


PAA 


>Y 




FUTA 


PLTA 


>Y 


St 


PLABA 
=;LOTC Y, 

' PC ILL 
-LOT ( Y, 
f 

PRENA 


>Y 


LOC 

Y 

SCALE 

CA4..8X,.F4.0,2F6.0> 

HIGH 

LOW 


1 . 

250. 

“ 010 . 


LOC 

Y 

SCALE 

<A4,8X..F4.0,2F6.0) 

HIGH 

LOW 


I . 

260. 

50. 


LOC 

Y 

SCALE 

<A4,85<;,F4.0,£F6.0> 

HIGH 

LOW 

o 

. 

200 . 

50, 


LOC 

Y 

SCALE 

<A4,8X,F4.0,2F6.0> 

HIGH 

LOW 

2 . 

200 . 

50. 


LOC 

Y 

SCALE 

<A4,8X,F4.8,2F6.0> 

HIGH 

LOW 

3. 

200 . 

50, 


LOC 

Y 

SCALE 

<A4,8X,F4.0,2F6.0> 

HIGH 

LOW 

3. 

200 . 

50. 


LOC 

Y 

SCALE 

CA4,eX,F4.0, 2 F 6 . 0 > 

HIGH 

LOW 

4. 

200 . 

50 


LOC 

Y 

SCALE 

c:A4,8X,F4.0,2F6.8> 

HIGH 

LOW 


4. 

200 . 

50. 
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CAfiDIOVAteUlAR L1NR/TILT fiOPEL 














